home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / utils / finnslator / finnslator.library.hex < prev    next >
Text File  |  1980-01-03  |  3KB  |  70 lines
  1.   file$="finnslator.library" : 'v2.11
  2.   OPEN file$ FOR OUTPUT AS #1
  3.   lin=0 : a$=""
  4. Loop:
  5.   lin=lin+1
  6.   READ x$ : IF x$="**" THEN Endeth
  7. Beyond:
  8.   i=INSTR(x$," ")
  9.   IF i>0 THEN
  10.     x$=LEFT$(x$,i-1)+MID$(x$,i+1)
  11.     GOTO Beyond
  12.   END IF
  13.   x$=UCASE$(x$)
  14.   cs$=RIGHT$(x$,2) : x$=LEFT$(x$,LEN(x$)-2)
  15.   sum=0
  16.   FOR i=1 TO LEN(x$)
  17.     sum=sum+(ASC(MID$(x$,i,1)) XOR i)
  18.   NEXT i
  19.   IF (sum AND 255)<>VAL("&H"+cs$) THEN
  20.     PRINT "Checksum error in line";lin
  21.     GOTO Endeth
  22.   END IF
  23.   x$=a$+x$ : a$=""
  24.   FOR i=1 TO LEN(x$) STEP 2
  25.     IF MID$(x$,i,1) = "G" THEN
  26.       IF MID$(x$,i+2)="" THEN a$=MID$(x$,i) : GOTO Loop
  27.       y$=STRING$(ASC(MID$(x$,i+1,1))-63,VAL("&H"+MID$(x$,i+2,2)))
  28.       i=i+2
  29.     ELSE
  30.       y$=CHR$(VAL("&H"+MID$(x$,i,2)))
  31.     END IF
  32.     PRINT #1,y$;
  33.   NEXT i
  34.   GOTO Loop
  35.  
  36. Endeth:
  37.   CLOSE #1
  38.   PRINT "Operation complete"
  39.   END
  40.  
  41. 1     DATA ga0003 f3gf00 01gj00 acga00 03e9gb 00ac70 ff4e75 4afcgb 0004ga 49
  42. 2     DATA 0002b0 800109 gc001e gb0031 gb0050 6669ga 6e736c 61746f 722e6c 06
  43. 3     DATA 696272 617279 006669 ga6e73 6c6174 6f7220 312e34 202832 39204f 2c
  44. 4     DATA 637420 31ga39 30290d 0agc00 2cgb00 60gb00 78gb00 a4gb00 b6gb00 42
  45. 5     DATA c4gb00 d8ga00 011aga 00011e gcffe0 ga0008 0900c0 ga000a gb001e a8
  46. 6     DATA e0ga00 0e0600 d0ga00 140001 d0ga00 160004 c0ga00 18gb00 31gc00 d5
  47. 7     DATA 2f0d2a 402b4e 00242b 480028 200d2a 5f4e75 526e00 2008ae 000300 df
  48. 8     DATA 22200e 4e7570 00536e 002066 0a082e 000300 226702 61024e 7548e7 f3
  49. 9     DATA 20062a 4e2c6d 00244a 6d0020 670e08 ed0003 002270 004cdf 60044e 20
  50. 10    DATA 75242d 002822 4d4eae ff0470 00224d 302d00 1093c0 d06d00 124eae 08
  51. 11    DATA ff2e20 024cdf 60044e 757000 4e7548 e73820 280053 816f6e 600253 11
  52. 12    DATA 804a80 676474 001418 675e0c 020060 660c53 816b54 538067 5012d8 04
  53. 13    DATA 60e20c 020061 650a0c 02007a 62ga04 020020 0c0200 e065ga 040200 c4
  54. 14    DATA 20613e 4a816b 2c0c02 004165 bc0c02 005a62 b60402 004145 fa004a 42
  55. 15    DATA d4c2d4 c25381 6b1014 1a6706 53816b 0812c2 12da53 806098 42114a 3e
  56. 16    DATA 806702 90844c df041c 4e7545 fa0054 7600d4 c3161a 6714b4 1a66f6 5a
  57. 17    DATA 92836c 0672ff 4e7512 da51cb fffc74 004e75 414800 420053 004445 62
  58. 18    DATA 480046 00472f 484948 005900 4b004c 004d00 4e4f48 00504b 560052 1e
  59. 19    DATA 005300 545548 005600 574b53 495854 5301ga 20010d 2001ga 2e01ga 77
  60. 20    DATA 2c01ga 3f01ga 2801ga 2901ga 2d04ga 494849 4802c4 414502 d64552 ef
  61. 21    DATA 02c54f 4802d1 4e580b b65049 484948 494849 484148 082a54 41452f 7c
  62. 22    DATA 485449 480730 4e4f48 ga4c41 480631 49584b 534948 07324b 41484b 56
  63. 23    DATA 534948 07334b 4f484c 4d4548 07344e 45484c 594145 0c3556 494849 da
  64. 24    DATA 484948 494853 494808 364b55 485548 534948 0d3753 454849 485453 df
  65. 25    DATA 45484d 41454e 0d384b 41482f 484445 484b53 41484e 0e3949 584958 03
  66. 26    DATA 2f4844 45484b 534145 4egb00 03ecgb 000fgf 0006gb 000agb 0012gb 46
  67. 27    DATA 0016gb 001agb 0054gb 0058gb 005cgb 0060gb 0064gb 0068gb 006cgb 34
  68. 28    DATA 0070gb 0082gb 009cge 0003f2 80
  69.       DATA **
  70.